home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
comm
/
mbtc9601.zip
/
OLXTAGS.BAS
< prev
Wrap
BASIC Source File
|
1995-12-07
|
570b
|
19 lines
10 ' -------------------------------------------------------------------------
20 ' OLX tagline extraction utility. (c) 1995 Mark Baum. Public Domain.
30 ' -------------------------------------------------------------------------
1000 '
1010 FILES "*.LST"
1020 INPUT "Enter tagline filename:"; TagFile$
1030 '
1040 OPEN TagFile$ FOR INPUT AS 1
1050 OPEN "TAGLINES.OLX" FOR APPEND AS 2
1060 '
1070 WHILE EOF(1) = 0
1080 LINE INPUT #1, Tagline$
1090 IF LEN(Tagline$) <= 57 THEN PRINT #2, Tagline$
1100 WEND
1110 CLOSE
1120 SYSTEM
1130 END